home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 45
/
64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64
/
listing 5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
29 lines
10 rem * beispiel 2 *
20 rem erzeugen mehrfarbiger selbstdefinierter zeichen
31 poke 56334,peek(56334) and 254:poke 1,peek(1) and 251
35 for i=0 to 63 :rem zu kopierende zeichen
36 for j=0 to 7 :rem alle 8 bytes pro zeichen
37 poke 12288+i*8+j,peek(53248+i*8+j):rem kopiere ein byte
38 next j,i :rem naechstes byte oder zeichen
39 poke 1,peek(1) or 4:poke 56334,peek(56334) or 1
40 poke 53272,(peek(53272) and 240) + 12:rem zeichenram einschalten
50 poke 53270,peek(53270) or 16
51 poke 53281,0 :rem hintergrundfarbe 0 auf schwarz
52 poke 53282,2 :rem hintergrundfarbe 1 auf rot
53 poke 53283,7 :rem hintergrundfarbe 2 auf gelb
60 for zeic=60 to 63 :rem neue zeichen 60 bis 63
80 for byte=0 to 7 :rem alle 8 bytes pro zeichen
100 read zahl :rem lese 1/8 zeichendaten
120 poke 12288+(8*zeic)+byte,zahl:rem speichern im zeichenram
140 next byte,zeic
150 print"[147]"tab(255)chr$(60)chr$(61)tab(55)chr$(62)chr$(63)
160 rem zeile 150 bringt die neuen zeichen auf den bildschirm
170 get a$ :rem erwartet tastendruck
180 if a$="" then 170 :rem sonst neuer versuch
190 poke 53272,21:poke 53270,peek(53270) and 239:rem normaler zeichensatz
200 data 129,37,21,29,93,85,85,85 :rem zeichendaten fuer zeichen 60
210 data 66,72,84,116,117,85,85,85:rem zeichen 61
220 data 87,87,85,21,8,8,40,0 :rem zeichen 62
230 data 213,213,85,84,32,32,40,0 :rem zeichen 63
240 end